home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / ANC_UTULITYS_16.adf / Loader.S < prev    next >
Text File  |  1987-01-01  |  596b  |  40 lines
  1.  
  2. move.l    $4,a6
  3. lea    dosname,a1
  4. jsr    -408(a6)
  5. move.l    d0,dosbase
  6. move.l    d0,a6
  7.  
  8. clr.l    d0
  9. move.w    $0100,d0
  10. lsl.l    #2,d0
  11. add.l    #prgtable,d0
  12. move.l    d0,a0
  13. move.l    (a0),d1
  14. move.l    28(a0),d2
  15. move.l    56(a0),d3
  16. jsr    -222(a6)
  17.  
  18. move.l    $4,a6
  19. move.l    dosbase,a1
  20. jsr    -414(a6)
  21. rts
  22.  
  23. dosbase:    dc.l    0
  24. dosname:    dc.b    "dos.library",0
  25. even
  26.  
  27. prgtable:
  28. dc.l    prg1 ,prg2 ,prg3 ,prg4 ,prg5 ,prg6 ,prg7
  29. dc.l    0    ,0    ,0    ,0    ,0    ,0    ,0
  30. dc.l    0    ,0    ,0    ,0    ,0    ,0    ,0
  31.  
  32. prg1:    dc.b    "Seka",0,0
  33. prg2:    dc.b    "Type Instruction",0,0
  34. prg3:    dc.b    "Execute 22kB",0
  35. prg4:    dc.b    0,0
  36. prg5:    dc.b    0,0
  37. prg6:    dc.b    0,0
  38. prg7:    dc.b    0,0
  39.  
  40.